home *** CD-ROM | disk | FTP | other *** search
/ Software Explosion 2 / Software Explosion 2 - Virtual Computer Pets (1997).iso / dpaint_data / animated / animated.install < prev    next >
Text File  |  1997-04-26  |  2KB  |  99 lines
  1.  
  2. ;************************************************
  3. ;*   AnimatED install script v1.2a (26-Apr-97)   *
  4. ;************************************************
  5.  
  6. ;*************
  7. ; Set strings
  8. ;*************
  9.  
  10. (set #where-prompt
  11. (cat "Where should I install AnimatED? \n (No directory will be created!)"
  12. ))
  13.  
  14. ;*************
  15. ; Ask dest dir
  16. ;*************
  17.  
  18. (set where (askdir (prompt #where-prompt)
  19.                    (help @askdir-help)
  20.                    (default @default-dest)
  21.            )
  22. )
  23.  
  24. (set @default-dest where)
  25.  
  26. ;***********
  27. ; Copy font
  28. ;***********
  29.  
  30. (copyfiles (source "Fonts") (dest "SYS:Fonts") (all))
  31. (complete 5)
  32.  
  33. ;************
  34. ; Copy files
  35. ;************
  36.  
  37. (copyfiles (source "AnimatED") (dest where))
  38. (copyfiles (source "AnimatED.info") (dest where))
  39. (complete 40)
  40. (copyfiles (source "AnimatEDPlay") (dest where))
  41. (copyfiles (source "AnimatEDPlay.info") (dest where))
  42. (complete 60)
  43. (copyfiles (source "AnimatED.guide") (dest where))
  44. (copyfiles (source "AnimatED.guide.info") (dest where))
  45. (complete 70)
  46. (copyfiles (source "AED_OrderForm") (dest where))
  47. (copyfiles (source "AED_OrderForm.info") (dest where))
  48. (complete 75)
  49. (copyfiles (source "ReadMe") (dest where))
  50. (copyfiles (source "ReadMe.info") (dest where))
  51. (copyfiles (source "AnimComp.txt") (dest where))
  52. (copyfiles (source "AnimComp.txt.info") (dest where))
  53. (complete 80)
  54.  
  55. ;**************************
  56. ; Copy keyfile if available
  57. ;**************************
  58.  
  59. (if (= (exists "AnimatED.key") 1)
  60.  (copyfiles (source "AnimatED.key") (dest where))
  61. )
  62.  
  63. ;********************
  64. ; Ask and copy extras
  65. ;********************
  66.  
  67. (set name
  68.  (askbool
  69.  (prompt "\nDo you want to install the example?")
  70.  (help "\n It's up to YOU!")
  71.  )
  72. )
  73.  
  74. (if (= name 1)
  75.   (copyfiles (source "Example") (dest (tackon where "Example")) (all))
  76. )
  77.  
  78. (complete 95)
  79.  
  80. (set name
  81.  (askbool
  82.  (prompt "\nDo you want to install the ScriptConvert utility?")
  83.  (help "\n This program is needed to convert AnimatED 1.1\n scripts to the new format.")
  84.  )
  85. )
  86.  
  87. (if (= name 1)
  88.   (copyfiles (source "ScriptConvert") (dest where))
  89. )
  90. (if (= name 1)
  91.   (copyfiles (source "ScriptConvert.info") (dest where))
  92. )
  93.  
  94. (complete 100)
  95.  
  96. ;****
  97. ;End
  98. ;****
  99.